home *** CD-ROM | disk | FTP | other *** search
- 10 ;RD TRK 5
- 40 PROG LDA DSKCNT;XXXXXXXX
- 50 AND #$9F; 10011111
- 60 SPD ORA #$00; 0XX00000
- 70 STA DSKCNT
- 80 BY JSR SYNC;FIND ANY SYNC MARK
- 200 LDY #$00
- 210 WAIT1 BVC WAIT1; V FLAG INDICATES GCR BYTE
- 220 CLV;RESET V FLAG
- 230 LDA DATA; INTERNAL I/O PORT
- 240 STA $0400,Y
- 250 INY
- 260 BNE WAIT1
- 270 LDY #$00
- 350 WAIT2 BVC WAIT2
- 360 CLV
- 370 LDA DATA
- 380 STA $0500,Y
- 390 INY
- 400 BNE WAIT2
- 410 LDA #$01; ERROR CODE
- 420 JMP OFF; ERROR HANDLING ROUTINE
- 520 RTS
- 590 .FILE RD TRK 6
-